100 PRINT CHR$(147):PRINT " SIDPLAYER BASIC PLAYER"
105 PRINT " BY CRAIG CHAMBERLAIN":PRINT
120 DN=8:SA=780:SX=781:SY=782:SP=783
130 PRINT " TUNING INSTRUMENTS...":PRINT:GOSUB 57000:REM LOAD SIDPLAYER ML
200 F$="COMMODORE":LA=PEEK(49)+256*PEEK(50)+1000:GOSUB 57500:REM LOAD SONG
210 SYS HK:REM HOOK (INSTALL)
220 POKE SX,LO:POKE SY,HI:SYS PL:REM SET FOR PLAYING
230 K=PEEK(SX)+256*PEEK(SY):REM GET ADDRESS OF TEXT LINES
240 IF PEEK(K) THEN PRINT CHR$(PEEK(K));:K=K+1:GOTO 240:REM PRINT UNTIL CHR$(0)
250 POKE SS,7:REM START PLAYING MUSIC
260 IF PEEK(SS)AND7 GOTO 260:REM STILL PLAYING
270 SYS HU:REM HUSH
280 SYS DP:REM DROP (REMOVE)
290 END
57000 POKE SA,1:POKE SX,DN:POKE SY,1:SYS 65466:F$="SID.OBJ.64":GOSUB 59000
57010 POKE SA,0:SYS 65493:IF PEEK(SP)AND1 GOTO 59100
57020 SS=49152:FL=49153:HK=49615:PL=49664:HU=49897:DP=49935:RETURN
57500 POKE SA,1:POKE SX,DN:POKE SY,0:SYS 65466:F$=F$+".MUS":GOSUB 59000
57510 HI=INT(LA/256):LO=LA-256*HI
57520 POKE SA,0:POKE SX,LO:POKE SY,HI:SYS 65493:IF PEEK(SP)AND1 GOTO 59100
57530 LA=PEEK(SX)+256*PEEK(SY):RETURN
59000 FOR K=1 TO LEN(F$):POKE 584+K,ASC(MID$(F$,K)):NEXT
59010 POKE SA,LEN(F$):POKE SX,73:POKE SY,2:SYS 65469:RETURN
59100 P=PEEK(SA):PRINT " ERROR: ";:IF P=4 THEN PRINT "FILE NOT FOUND":END
59110 IF P=5 THEN PRINT "DEVICE NOT PRESENT":END
59120 PRINT ST:END